home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / COOLVIEW.ZIP / VIEW50_4.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-03-05  |  570 b   |  21 lines
  1. { View 50-lines screen in Text Mode          }
  2. { Coded '95 by Paradise, 1995.III.3          }
  3. { Lublin, Poland                             }
  4. { paradise@bachus.umcs.lublin.pl             }
  5. {                                            }
  6. { Example : OBJ usage example                }
  7. {                                            }
  8. { Need : view50_3.obj                        }
  9. {                                            }
  10. uses Crt;
  11.  
  12. {$f+}
  13. procedure Body; external;
  14. {$l view50_3.obj}
  15. {$f-}
  16.  
  17. begin
  18.  Body;
  19.  ReadKey;
  20.  asm  mov ax,3h; int 10h;  end;
  21. end.